home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO088A.dsk / PRINTER.TEST.bas < prev    next >
BASIC Source File  |  2012-02-16  |  8KB  |  196 lines
  1. 1  REM  PRINTER TEST
  2. 2  REM  BY MICHAEL A. COFFEY
  3. 8 D$ =  CHR$(4)
  4. 10 EX$ = "THIS IS EXTENDED (9 CPI)
  5. 12 P$ = "THIS IS PICA (12 CPI)"
  6. 14 E$ = "THIS IS ELITE (10 CPI)"
  7. 15 CO$ = "THIS IS CONDENSED (15 CPI)
  8. 16 M$ = "THIS IS MICRON (17 CPI)"
  9. 17 CM$ = "THIS IS COMPRESSED (17.6 CPI)
  10. 18 EM$ = "THIS IS THE EMPHASIZED MODE"
  11. 20 NM$ = "THIS IS THE NEAR LETTER QUALITY MODE"
  12. 22 N1$ = "     PRINTER TEST FOR:  "
  13. 24 N2$ = "     MAKE SURE PRINTER IS TURNED ON"
  14. 26 SB$ = "     PRESS <SPACEBAR> TO CONTINUE: "
  15. 28 IC$ = "THIS IS THE COLOR "
  16. 51 M2$ = "THANK YOU FOR CHOOSING THE BOTTOM LINE"
  17. 52 M3$ = "FOR SERVICE OR SUPPORT, FEEL FREE TO"
  18. 53 M4$ = "CALL       (314) 837-1200"
  19. 54 M5$ = "  THE BOTTOM LINE"
  20. 55 M6$ = "  16 CROSS KEYS SHOPPING CENTER"
  21. 56 M7$ = "  FLORISSANT  MO  63033"
  22. 57 M8$ = "   THE                     HELPING YOUR"
  23. 58 M9$ = "     BOTTOM                 KIDS MAKE"
  24. 59 MA$ = "         LINE               THE GRADE"
  25. 500  REM  MENU
  26. 510  HOME : HTAB 12: PRINT "PRINTER TEXT MENU"
  27. 520 MN = 0: PRINT : PRINT 
  28. 535 MN = MN +1: HTAB 5: PRINT MN;")   IMAGEWRITER II"
  29. 537 MN = MN +1: HTAB 5: PRINT MN;")   IMAGEWRITER II COLOR"
  30. 550 MN = MN +1: HTAB 5: PRINT MN;")   EPSON AP-80"
  31. 560 MN = MN +1: HTAB 5: PRINT MN;")   EPSON LX-80/86"
  32. 570 MN = MN +1: HTAB 5: PRINT MN;")   BROTHER HR-20"
  33. 575 MN = MN +1: HTAB 5: PRINT MN;")   EPSON LX-800"
  34. 580 MN = MN +1: HTAB 5: PRINT MN;")   IMAGEWRITER LQ"
  35. 590 MN = MN +1: HTAB 5: PRINT MN;")   QUIT"
  36. 600  PRINT : PRINT : HTAB 10: PRINT "ENTER CHOICE: ";: GET AN$: PRINT AN$
  37. 610  IF AN$ <"1"  OR  ASC(AN$) -48 >MN  THEN  PRINT  CHR$(7): CALL  -998: CALL  -998: CALL  -998: CALL  -998: GOTO 600
  38. 615 IC$ = "N": IF AN$ = "2"  THEN IC$ = "Y"
  39. 620 AN =  ASC(AN$) -48
  40. 630  ON AN GOSUB 1000,1000,4000,5000,6000,7000,8000,640
  41. 640  PRINT  CHR$(4);"RUN HELLO2"
  42. 1000  REM   IMAGEWRITER II BLACK AND COLOR
  43. 1010  HOME : VTAB 6: PRINT N1$;"IMAGEWRITER II": PRINT : PRINT : PRINT N2$: VTAB 22: PRINT SB$;: GET AN$: PRINT AN$
  44. 1020  PRINT D$;"PR#1"
  45. 1022  PRINT  CHR$(14): PRINT "IMAGEWRITER DEMO": PRINT  CHR$(15)
  46. 1023  PRINT : PRINT : PRINT "This is a sample APPLE IMAGEWRITER II printout"
  47. 1025  REM  9 CPI
  48. 1026  PRINT  CHR$(27); CHR$(110): PRINT EX$
  49. 1029  REM   ELITE  
  50. 1030  PRINT  CHR$(27); CHR$(69): PRINT E$
  51. 1039  REM   PICA 
  52. 1040  PRINT  CHR$(27); CHR$(78): PRINT P$
  53. 1042  REM  CONDENSED
  54. 1043  PRINT  CHR$(27); CHR$(113): PRINT CO$
  55. 1045  REM  MICRON
  56. 1050  PRINT  CHR$(27); CHR$(81): PRINT M$
  57. 1055  REM  BACK TO PICA
  58. 1057  PRINT  CHR$(27); CHR$(35); CHR$(14)
  59. 1058  PRINT "EXPANDED TYPE IS AN OPTION ON ANY PRINT SIZE"
  60. 1059  PRINT  CHR$(15)
  61. 1060  PRINT  CHR$(27); CHR$(78)
  62. 1063  PRINT  CHR$(27); CHR$(88): PRINT "UNDERLINE IS AN OPTION ON ANY PRINT SIZE": PRINT  CHR$(27); CHR$(89)
  63. 1064  PRINT  CHR$(27); CHR$(78): PRINT "This is Pica"
  64. 1065  PRINT  CHR$(27); CHR$(112): PRINT "This is Pica proportional"
  65. 1066  PRINT  CHR$(27); CHR$(69): PRINT "This is Elite"
  66. 1067  PRINT  CHR$(27); CHR$(80): PRINT "This is Elite proportional"
  67. 1068  PRINT  CHR$(27); CHR$(78)
  68. 1069  REM  NLQ
  69. 1070  PRINT  CHR$(27); CHR$(97); CHR$(50): PRINT NM$
  70. 1075  REM  SUPERSCRIPT - SUBSCRIPT
  71. 1080  PRINT : PRINT "AND THIS IS ";: PRINT  CHR$(27); CHR$(120);: PRINT "SUPERSCRIPT";: PRINT  CHR$(27); CHR$(122);: PRINT " AND THIS IS ";: PRINT  CHR$(27); CHR$(121);: PRINT "SUBSCRIPT"
  72. 1085  REM  NORMAL (SUBSCRIPT OFF, DRAFT, ELITE
  73. 1090  PRINT  CHR$(27); CHR$(122): PRINT  CHR$(27); CHR$(69): PRINT  CHR$(27); CHR$(97); CHR$(49)
  74. 1095  PRINT : IF IC$ = "N"  THEN  GOTO 20010
  75. 1100  REM  IMAGEWRITER COLOR OPTION
  76. 1110  PRINT  CHR$(27); CHR$(75);"1"; CHR$(49);: PRINT C$;" YELLOW"
  77. 1120  PRINT  CHR$(27); CHR$(75);"2"; CHR$(50);: PRINT C$;" RED"
  78. 1130  PRINT  CHR$(27); CHR$(75);"3"; CHR$(51);: PRINT C$;" BLUE"
  79. 1140  PRINT  CHR$(27); CHR$(75);"4"; CHR$(52);: PRINT C$;" ORANGE"
  80. 1150  PRINT  CHR$(27); CHR$(75);"5"; CHR$(53);: PRINT C$;" GREEN"
  81. 1160  PRINT  CHR$(27); CHR$(75);"6"; CHR$(54);: PRINT C$;" PURPLE"
  82. 1165  PRINT  CHR$(27); CHR$(75);"0"; CHR$(48);: PRINT C$;" BLACK"
  83. 1170  PRINT  CHR$(27); CHR$(78)
  84. 1172  PRINT  CHR$(27); CHR$(36): REM  96 ASCII CHAR SET
  85. 1180  GOTO 20010
  86. 4000  REM  EPSON AP-80
  87. 4010  HOME : VTAB 6: PRINT N1$;"EPSON AP-80": PRINT : PRINT : PRINT N2$: VTAB 22: PRINT SB$;: GET AN$: PRINT AN$
  88. 4020  PRINT D$;"PR#1"
  89. 4022  PRINT  CHR$(27);"L015"
  90. 4025  REM   9 CPI
  91. 4026  PRINT  CHR$(27); CHR$(110): PRINT EX$
  92. 4029  REM   PICA  
  93. 4030  PRINT  CHR$(27); CHR$(78): PRINT P$
  94. 4039  REM   ELITE 
  95. 4040  PRINT  CHR$(27); CHR$(69): PRINT E$
  96. 4042  REM   CONDENSED 
  97. 4043  PRINT  CHR$(27); CHR$(113): PRINT CO$
  98. 4045  REM   MICRON 
  99. 4050  PRINT : PRINT  CHR$(27); CHR$(81): PRINT M$
  100. 4055  REM  RESET TO NORMAL
  101. 4060  PRINT  CHR$(27); CHR$(78)
  102. 4065  REM   NLQ  
  103. 4070  PRINT  CHR$(27); CHR$(72): PRINT NM$
  104. 4075  REM   SUPERSCRIPT - SUBSCRIPT
  105. 4080  PRINT : PRINT "AND THIS IS ";: PRINT  CHR$(27); CHR$(98); CHR$(49);: PRINT "SUPERSCRIPT";: PRINT  CHR$(27); CHR$(98); CHR$(48);: PRINT " AND THIS IS ";: PRINT  CHR$(27); CHR$(98); CHR$(50);: PRINT "SUBSCRIPT"
  106. 4085  REM   NORMAL (SUBSCRIPT OFF, DRAFT, ELITE
  107. 4090  PRINT  CHR$(27); CHR$(99): PRINT  CHR$(27); CHR$(78)
  108. 4095  PRINT  CHR$(27);"L015"
  109. 4100  GOTO 20010
  110. 5000  REM  EPSON LX-80/86
  111. 5010  HOME : VTAB 6: PRINT N1$;"EPSON LX-80/86": PRINT : PRINT : PRINT N2$: VTAB 22: PRINT SB$;: GET AN$: PRINT AN$
  112. 5020  PRINT D$;"PR#1"
  113. 5022  PRINT "EPSON LX SERIES DEMONSTRATION"
  114. 5023  PRINT : PRINT 
  115. 5025  PRINT  CHR$(27);"l"; CHR$(15)
  116. 5029  REM     ELITE  
  117. 5030  PRINT  CHR$(27);"M": PRINT E$
  118. 5039  REM     PICA  
  119. 5040  PRINT P$
  120. 5042  REM    COMPRESSED (17.6 CPI)
  121. 5043  PRINT  CHR$(15): PRINT CM$
  122. 5055  REM  RESET TO NORMAL 
  123. 5060  PRINT  CHR$(27);"x"; CHR$(0);
  124. 5062  PRINT  CHR$(27);"-1": REM  UNDERLINE ON
  125. 5063  PRINT "YOU CAN UNDERLINE IN ANY MODE"
  126. 5064  PRINT  CHR$(27);"-0"
  127. 5065  REM    NLQ  
  128. 5070  PRINT  CHR$(27);"x"; CHR$(1): PRINT NM$
  129. 5073  REM  SUPERSCRIPT - SUBSCRIPT
  130. 5075  PRINT : PRINT "AND THIS IS ";
  131. 5076  PRINT  CHR$(27);"x"; CHR$(0);
  132. 5077  PRINT  CHR$(27);"S"; CHR$(0);: PRINT "SUPERSCRIPT";
  133. 5078  PRINT  CHR$(27);"x"; CHR$(1);
  134. 5080  PRINT " AND THIS IS ";
  135. 5081  PRINT  CHR$(27);"x"; CHR$(0);
  136. 5083  PRINT  CHR$(27);"S"; CHR$(1);: PRINT "SUBSCRIPT"
  137. 5085  REM  RETURN TO NORMAL SETTING
  138. 5090  PRINT  CHR$(27);"@"
  139. 5095  PRINT  CHR$(27);"l"; CHR$(15)
  140. 5100  REM  ITALIC
  141. 5110  PRINT  CHR$(27);"4"
  142. 5112  PRINT "THIS IS ITALIC - This is italic"
  143. 5114  PRINT  CHR$(27);"5"
  144. 5200  GOTO 20010
  145. 6000  REM  BROTHER HR-20 
  146. 6010  HOME : VTAB 6: PRINT N1$;"BROTHER HR-20": PRINT : PRINT : PRINT N2$: VTAB 22: PRINT SB$;: GET AN$: PRINT AN$
  147. 6020  PRINT D$;"PR#1"
  148. 6022  PRINT "BROTHER  HR-20  DEMONSTRATION"
  149. 6023  PRINT : PRINT 
  150. 6025  PRINT "THIS IS NORMAL PRINTING - This is normal printing"
  151. 6030  PRINT  CHR$(27);"E": PRINT "THIS IS UNDERLINE";
  152. 6035  PRINT  CHR$(27);"X";
  153. 6039  PRINT " - This is underline"
  154. 6043  PRINT  CHR$(27);"H": PRINT "THIS IS AUTO STRIKEOUT";
  155. 6050  PRINT  CHR$(27);"X";
  156. 6055  PRINT " - This is auto strikeout"
  157. 6060  PRINT 
  158. 6064  PRINT  CHR$(27);"O";"THIS IS BOLDFACE";
  159. 6070  PRINT  CHR$(27);"X";
  160. 6073  PRINT " - Printed 2X with 1/180 inch offset"
  161. 6075  PRINT 
  162. 6076  PRINT  CHR$(27);"W";"THIS IS SHADOW PRINT";
  163. 6077  PRINT  CHR$(27);"X";
  164. 6078  PRINT " - Printed 2X with 1/120 inch offset"
  165. 6080  PRINT 
  166. 6081  PRINT  CHR$(27);"F";
  167. 6083  PRINT "THIS IS DOUBLE STRIKE";
  168. 6085  PRINT  CHR$(27);"X";
  169. 6090  PRINT " - Printed 2X with no offset"
  170. 6100  PRINT : PRINT 
  171. 6110  PRINT "The HR-20 supports porportional spacing": PRINT "and has very limited graphics ability"
  172. 6120  PRINT : PRINT 
  173. 6200  GOTO 20010
  174. 7000  REM  EPSON LX-800
  175. 7010  HOME : VTAB 6
  176. 7020  PRINT "Use LX-80/86 test."
  177. 7030  VTAB 22: PRINT "PRESS SPACEBAR TO CONTINUE: ";: GET A$: PRINT A$
  178. 7040  GOTO 500
  179. 8000  REM  IMAGEWRITER LQ
  180. 8010  HOME : VTAB 6
  181. 8020  PRINT "Use ImageWriter II test"
  182. 8030  VTAB 22: PRINT "PRESS SPACEBAR TO CONTINUE: ";: GET A$: PRINT A$
  183. 8040  GOTO 500
  184. 20000  REM  END MESSAGE
  185. 20010  PRINT M2$
  186. 20011  PRINT 
  187. 20012  PRINT M3$
  188. 20013  PRINT M4$
  189. 20014  PRINT M5$
  190. 20015  PRINT M6$
  191. 20016  PRINT M7$: PRINT 
  192. 20017  PRINT M8$
  193. 20018  PRINT M9$
  194. 20019  PRINT MA$
  195. 20020  PRINT  CHR$(4);"PR#0"
  196. 20030  RETURN